home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Development / General / GTQLib1.2.as Folder / Sample Scripts / tracks < prev   
Encoding:
Text File  |  1994-05-04  |  395 b   |  15 lines  |  [TEXT/ToyS]
  1. on run
  2.     repeat with i from 1 to (number of tracks on audio CD)
  3.         set ti to (track information for audio CD for track i)
  4.         display dialog (convert(ti))
  5.     end repeat
  6.     return
  7. end run
  8.  
  9. on convert(t)
  10.     set s to "{"
  11.     set s to s & "minutes=" & (mins of t as string) & ","
  12.     set s to s & "seconds=" & (secs of t as string) & ","
  13.     set s to s & "frames=" & (frames of t as string) & "}"
  14.     return s
  15. end convert